Some other content
---
title: "Cars Dashboard"
output:
flexdashboard::flex_dashboard:
source_code: embed
orientation: columns
vertical_layout: scroll
theme: yeti
---
```{r setup, include=FALSE}
library(flexdashboard) # run the flexdashboard functionality
library(tidyverse) # data manipulation, etc
library(plotly) # interactive graphics
library(DT) # interactive tables
# load data
data(mtcars)
```
# Another Test
Summary
==================
## Column {data-width="650"}
### Interactive data table
```{r}
# enter code for interactive data table here
datatable(mtcars)
```
## Column {data-width="350"}
### Interactive visual
```{r, fig.width=4, fig.height=3}
# create a visual and save ggplot as object "p"
p <- ggplot(mtcars, aes(x = hp, y = mpg)) +
geom_point()
# make interactive using ggplotly() function
ggplotly(p)
```
### Number of Cars
```{r}
# Create a gauge to show number of cars
num_cars <- nrow(mtcars)
gauge(num_cars, min = 0, max = 100)
```
Detail
===
### Box 1
# Test
Some other content